(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     54750,       1515]
NotebookOptionsPosition[     48834,       1306]
NotebookOutlinePosition[     49463,       1330]
CellTagsIndexPosition[     49383,       1325]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000068081999145`*^9},
 CellLabel->"Paclet Name",
 CellID->58841095],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->334674771],

Cell["TransferMatrixFormalism/ref/FresnelA", "Categorization",
 CellChangeTimes->{3.600006808714715*^9},
 CellLabel->"URI",
 CellID->110019190]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["Eq. 8", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.5977653650701785`*^9}},
 CellID->1164421360],

Cell["Eq. 9", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.5977653671917825`*^9}},
 CellID->138162075],

Cell["Eq. 10", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.5977653725893917`*^9}},
 CellID->129934734],

Cell["Eq. 11", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.5977653746173954`*^9}},
 CellID->52932497],

Cell["reflection", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.5977653781274014`*^9}},
 CellID->60581561],

Cell["transmission", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.597765383993012*^9}},
 CellID->78934692],

Cell["Fresnel factor", "Keywords",
 CellChangeTimes->{{3.5977653614509726`*^9, 3.5977653858962154`*^9}, {
  3.59796752997859*^9, 3.5979675312109923`*^9}},
 CellID->24108265]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["FresnelA", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["FresnelA",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/FresnelA"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"coefficient\", \"TI\"]\)\>\"", ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["i", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["i", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["j", "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates Fresnel amplitude coefficient for ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " angle of incidence from normal in medium i at a planar boundary between \
medium i and medium j with refractive indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",
  ShowStringCharacters->False],
 " and ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["j", "TI"]]], "InlineFormula"],
 ". Angle of Refraction ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["j", "TI"]]], "InlineFormula",
  ShowStringCharacters->False],
 " is internally calculated using Snell's law. ",
 ButtonBox["Eqs. 8-11",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/FresnelA#148884605"],
 ".\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["FresnelA",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/FresnelA"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"coefficient\", \"TI\"]\)\>\"", ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["i", "TI"]], ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["j", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["i", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["j", "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]FresnelA with ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["j", "TI"]]], "InlineFormula"],
 " specified."
}], "Usage",
 CellChangeTimes->{
  3.597765040323408*^9, {3.5977650951887045`*^9, 3.5977653182856965`*^9}, {
   3.597856858081942*^9, 3.59785686822196*^9}, {3.5979205128651376`*^9, 
   3.5979205482304*^9}, {3.597937687803418*^9, 3.5979377075072527`*^9}, {
   3.598009342474758*^9, 3.598009358121586*^9}}],

Cell["\<\
\"coefficient\" = \"rs\" or \"rp\" for reflection of s- or p-polarized light\
\>", "Notes",
 CellChangeTimes->{{3.597765041852211*^9, 3.59776507011946*^9}, {
  3.6235472782087555`*^9, 3.6235472804707594`*^9}},
 CellID->1067943069],

Cell["\"coefficient\" = \"ts\" or \"tp\" for transmission", "Notes",
 CellChangeTimes->{{3.597765041852211*^9, 3.597765051820628*^9}, {
  3.597769758050908*^9, 3.597769758050908*^9}},
 CellID->2631882],

Cell[TextData[{
 "These definitions depend on the axes system as defined in ",
 ButtonBox["Interfacial Nonlinear Spectroscopy of Thin Film Systems",
  BaseStyle->"Link",
  ButtonData->
   "paclet:InterfacialThinFilmNLS/tutorial/Interfacial Nonlinear Spectroscopy \
of Thin Film Systems"]
}], "Notes",
 CellChangeTimes->{{3.597765041852211*^9, 3.597765051820628*^9}, {
  3.597769758050908*^9, 3.5977697669927244`*^9}, {3.6235456853243575`*^9, 
  3.6235456987403812`*^9}, {3.623545819734194*^9, 3.6235458198433943`*^9}, {
  3.6235464315672684`*^9, 3.6235464331116714`*^9}},
 CellID->557154886],

Cell["The amplitude coefficients are:", "Notes",
 Deletable->True,
 CellChangeTimes->{{3.597765041852211*^9, 3.597765051820628*^9}, {
  3.597769758050908*^9, 3.597769780393148*^9}, {3.597936515992659*^9, 
  3.597936538347498*^9}, {3.5979408277964606`*^9, 3.5979408283268614`*^9}},
 CellID->345575069],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo"], Cell[TextData[Cell[BoxData[
     RowBox[{"FresnelA", "[", 
      RowBox[{"\<\"\\\"\\!\\(\\*\\nStyleBox[\\\"rp\\\", \
\\\"TI\\\"]\\)\\\"\"\>", ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["j", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["j", "TI"]]}], "]"}]], "InlineFormula",
     ShowStringCharacters->False]], "TableText"], Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{
       SubsuperscriptBox["r", 
        RowBox[{"i", ",", "j"}], "p"], "\[LongEqual]", 
       FractionBox[
        SubsuperscriptBox["\[CapitalEpsilon]", "r", "p"], 
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "p"]], "\[LongEqual]", 
       FractionBox[
        RowBox[{
         RowBox[{
          SubscriptBox["n", "i"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "j"], ")"}]}], "-", 
         RowBox[{
          SubscriptBox["n", "j"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "i"], ")"}]}]}], 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "i"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "j"], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["n", "j"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "i"], ")"}]}]}]]}], TraditionalForm]], 
     "InlineMath"]], "TableText",
     Deletable->True]},
   {Cell["      ", "ModInfo"], Cell[TextData[Cell[BoxData[
     RowBox[{"FresnelA", "[", 
      RowBox[{"\<\"\\\"\\!\\(\\*\\nStyleBox[\\\"rs\\\", \
\\\"TI\\\"]\\)\\\"\"\>", ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["j", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["j", "TI"]]}], "]"}]], "InlineFormula",
     ShowStringCharacters->False]], "TableText"], Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{
       SubsuperscriptBox["r", 
        RowBox[{"i", ",", "j"}], "s"], "\[LongEqual]", 
       FractionBox[
        SubsuperscriptBox["\[CapitalEpsilon]", "r", "s"], 
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "s"]], "\[LongEqual]", 
       FractionBox[
        RowBox[{
         RowBox[{
          SubscriptBox["n", "i"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "i"], ")"}]}], "-", 
         RowBox[{
          SubscriptBox["n", "j"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "j"], ")"}]}]}], 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "i"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "i"], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["n", "j"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "j"], ")"}]}]}]]}], TraditionalForm]], 
     "InlineMath"]], "TableText",
     Deletable->True]},
   {Cell["      ", "ModInfo"], Cell[TextData[Cell[BoxData[
     RowBox[{"FresnelA", "[", 
      RowBox[{"\<\"\\\"\\!\\(\\*\\nStyleBox[\\\"tp\\\", \
\\\"TI\\\"]\\)\\\"\"\>", ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["j", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["j", "TI"]]}], "]"}]], "InlineFormula",
     ShowStringCharacters->False]], "TableText"], Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{
       SubsuperscriptBox["t", 
        RowBox[{"i", ",", "j"}], "p"], "\[LongEqual]", 
       FractionBox[
        SubsuperscriptBox["\[CapitalEpsilon]", "t", "p"], 
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "p"]], "\[LongEqual]", 
       FractionBox[
        RowBox[{"2", " ", 
         SubscriptBox["n", "i"], " ", 
         RowBox[{"cos", "(", 
          SubscriptBox["\[Theta]", "i"], ")"}]}], 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "i"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "j"], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["n", "j"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "i"], ")"}]}]}]]}], TraditionalForm]], 
     "InlineMath"]], "TableText",
     Deletable->True]},
   {Cell["      ", "ModInfo"], Cell[TextData[Cell[BoxData[
     RowBox[{"FresnelA", "[", 
      RowBox[{"\<\"\\\"\\!\\(\\*\\nStyleBox[\\\"ts\\\", \
\\\"TI\\\"]\\)\\\"\"\>", ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[Theta]", "TR"], 
        StyleBox["j", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["i", "TI"]], ",", 
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["j", "TI"]]}], "]"}]], "InlineFormula",
     ShowStringCharacters->False]], "TableText"], Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{
       SubsuperscriptBox["t", 
        RowBox[{"i", ",", "j"}], "s"], "\[LongEqual]", 
       FractionBox[
        SubsuperscriptBox["\[CapitalEpsilon]", "t", "s"], 
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "s"]], "\[LongEqual]", 
       FractionBox[
        RowBox[{"2", " ", 
         SubscriptBox["n", "i"], " ", 
         RowBox[{"cos", "(", 
          SubscriptBox["\[Theta]", "i"], ")"}]}], 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "i"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "i"], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["n", "j"], " ", 
          RowBox[{"cos", "(", 
           SubscriptBox["\[Theta]", "j"], ")"}]}]}]]}], TraditionalForm]], 
     "InlineMath",
     FontSize->12]], "TableText",
     Deletable->True]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.597940307457348*^9, 3.5979404720660353`*^9}, {
  3.5979405183513165`*^9, 3.5979405929506483`*^9}, {3.597940626443907*^9, 
  3.597940790043394*^9}},
 CellID->237160975]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Interfacial Nonlinear Spectroscopy of Thin Film \
Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Interfacial Nonlinear Spectroscopy \
of Thin Film Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
   3.6000111315791473`*^9, 3.6000111315981483`*^9}, {3.6235461474439697`*^9, 
   3.623546156398385*^9}, 3.6235463655323524`*^9, {3.623546417340043*^9, 
   3.6235464174960437`*^9}},
 CellID->40297743]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Simulated vibrational sum frequency generation from a multilayer thin film \
system with two active interfaces,\" J. Chem. Phys. 138, 154708 (2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1063/1.4799921"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597766065189121*^9, 3.597766067909125*^9}, {
  3.597766108593182*^9, 3.597766108653182*^9}},
 CellID->134447493]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionAngle"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["FresnelL",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/FresnelL"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Wv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/Wv"]], "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.5977657439141665`*^9, 3.597765754729974*^9}, {
  3.5977663331558323`*^9, 3.5977664817220416`*^9}, {3.597766595509204*^9, 
  3.597766642033269*^9}, {3.5977754001258235`*^9, 3.5977755280812483`*^9}, {
  3.5979673611510935`*^9, 3.597967395439954*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellChangeTimes->{{3.5977658084810486`*^9, 3.5977658115362234`*^9}},
 CellID->283660065]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Plot reflection and transmission coefficients of 800 nm light at an air-glass \
interface:\
\>", "ExampleText",
 CellChangeTimes->{{3.597776400867982*^9, 3.5977764522544723`*^9}, {
  3.5977769740209894`*^9, 3.597776979106598*^9}, {3.597967498652735*^9, 
  3.597967499229936*^9}},
 CellID->320629885],

Cell[BoxData[{
 RowBox[{"<<", "TransferMatrixFormalism`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "TransferMatrixFormalism`Data`Indices`"}]}], "Input",
 CellChangeTimes->{{3.5977664923260574`*^9, 3.597766493356059*^9}, {
   3.5977756059887853`*^9, 3.597775634927836*^9}, {3.6000071653353386`*^9, 
   3.600007173353753*^9}, {3.6000077198563137`*^9, 3.6000077549573755`*^9}, {
   3.6000078534423485`*^9, 3.6000078698379774`*^9}, 3.623461244665785*^9},
 CellLabel->"In[1]:=",
 CellID->268501292],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "=", "800"}], " ", 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"coeffs", "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<rp\>\"", ",", "\"\<tp\>\"", ",", "\"\<rs\>\"", ",", 
        "\"\<ts\>\""}], "}"}]}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FresnelA", "[", 
         RowBox[{"#", ",", "\[Theta]i", ",", "1", ",", 
          RowBox[{"nSiO2", "[", 
           RowBox[{
            RowBox[{"10", "^", "7"}], "/", "\[Lambda]"}], "]"}]}], "]"}], 
        "&"}], "/@", "coeffs"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]i", ",", "0", ",", 
       RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Red"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "coeffs"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(i\)]\)\>\"", ",", "None"}], 
       "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5977761027016582`*^9, 3.59777636592292*^9}, {
  3.5977790446000276`*^9, 3.597779081167492*^9}},
 CellLabel->"In[2]:=",
 CellID->83132562],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {}, {
      GrayLevel[0], 
      LineBox[CompressedData["
1:eJwV1Hs81NkbB3Bii2J/SPWjjEuRZdu28JNcnqikC7mENkQktyK3FIrk1lYa
YjLukiHtyOQ2DM6E0Zes3CJh3alcBqGZyeZ3+uO8zuv913me83zOUXb1s3Zf
JyQklIfXj10EbWwb07lgtO8/2ZNjHAKpfqrTJz0CCPqvX/4PC0r2XuxLOg3y
OWMjo9iMFXgnXWwPvzxeTR/BnpD15FUkOUPkeFXXEPZ9OUKymOUGiu7b7w5i
09Qds4WKPWB0WqnmAzZbd/53mxwfeGLccrkX+4NpdH1+kh+YqW5L7/pxnoaE
Rni9P1BPbjj2Fjtuf09APisQLjunXW3Blj2Yw2orC4Z7wu3bONi5xt6iPHoI
PCcKDBD2b8e1zZULbgDFWHmIic2y/J5yIicMFub01xjY75yTdmcmRcAHZM18
8qMfrd8OjHEioajC3CoNO0T30UBI/W2IjZ/ySMQWBSfVXNYdqF9ekryF3WJS
36zDjAY9WY/MQOxE092+LWUxML45uMgTm2SxUPGFHgfdFhcMrbDHrewc4ovi
YbHGsOEI9nNb1tqOgrsgFvCySRf7gFOMmWnOPYgpdDHdgW19We5DatJDmHjP
UB9qJJDEAUCUY2RQs9+f3oY9X+UvPcIhg8t6k3u12BW1PeXB9YlAKhYfp2If
5uR8z2I9gtRZmeunsNWOdVl+0kuGVNHJHl3sjc0/5Wkxk8GxzKBUBbu91fsY
UZYCgTa+4ysNBHLq1iYv0B9DdOJLdSr2ITuPUf1fU2GwIiAwEnvXe6p2bFEq
7D1XqO+B/bn/+3v5AipEWVw+ooUdMkYoH8lJB2lVki6nHt/PomMpJSkbmEdN
sttfEejBljQDtmQOTNmlrPyF3cmIUdSxzoEWXauyeGyHz44TpP4c+MNwxdUI
29dhk//iTC5U7aDcf8ImULKhZzxV6il0PPvpZwtEoL4+G5+fbZ9CWLthixI2
6RpY3KE+hTsteTOLdQQqKN4qe0UlH6YSP7qlYFcrcrIPadPAvWNwe1ctgYaE
VSqn7Auh2OU+fV8N7i9LMs0xoxDenEpsEbAI5HmQH94xXAgvFMLMG7AXA9pN
WF7PYM7sU7Q1tuj4rbaEsCKA0uwqr2oCaTT1T+hk/wXk0006YUwC6XNObDQJ
LIEXdfmWGmUEkuqmvdV9VAIWfdM/T5TifIyuS9lTWgKio/tNs7EThFiKcl9K
oPgpXVEGe1RfU2c+gAHGk8ybCwwCxb/c5JIV8BJmuuRHKC8I1JPdWi7wL4P+
76Hy4UU4X8XqYfOJZaB4z3lWFTuyNvrQJKMM3lRGHHj7jEC/9Bu86VgoA5lg
e10l7PCt9OFC/3IYZuT2sAoItPPBg032/hVwSN0jpe8pga6GWlwovcqEwv8V
DRVnEeiEr0GhGJkJw37Bpcexd7pqcJ1eMCHVsl9kPBPXc3z9TbE5Jois2ctv
wzaUq0t18qmCrGQ9hZB0nD/mnvYNl6ohPzAnkJRKoPxlCXB0qAEWfVV9YyKB
bn0SxDBCa6BD+ExkMplAZwc/tq5Pq4GmowdtSNgSnMZzjPc1QL7+0Of3hwQK
SA6/tt6uFuTNnNwtHuC8as3QSyzrIL3YO9j/LoGuMN0T1u1kQ0KJRaPN7R//
g5WSsDYbDhtd3Fwfid9Tn8HLtSNsCDmhw9mLHfRtc8/qJTY0bnlnKR5BoFCj
eoWvRWxQaqesLw8nUGwjiT69/xVwlsyH50IIlNPe+6bbpB5KNk19nr5CoO6P
x8ULXBshoSdYUewsgbhU9aN3Ahph5FKqtIM97v/khtvOUY1w3eZWCN0O10tv
5G170ggTjk5ZlrZ4fv7wMX6kEf7rN2FHtiZQlED7tbcLB3o6Ry4tnyLQXgml
mN/ON4G5pGWWrTGB/ty7IlTxBwHyZSsqPuq43pDjmpPeBHSuzm+5u5tAXijD
dms4AUl9Dc40NQKZnT5cdC2LgKVbWV//2UWgDX5kG90xAuR2d+qYKRMouliD
xrzcDOq9Vn0COTyPPc4nWREtUMozUBneSCB/TSKFnd8KZ8ILSvI/v0YCN5/i
Qd92sDOm/OuU9xq51tpZki91QnACu1HU/jVyW+hms+O7QfKoX4Uovwnd/73S
jxbbA46eBvRDlCa0jl2pGx36HvL5HSqpGk1IWuNk21DqB5gdPVO7VshBZtkm
efNJA8BZ42W77eSgbdxW04jKf2B+RiF24E4jSntdLSziNQyv/3Cvv9jbgAwU
jNeULo4ALZ/k5rW7AWkOS43fDBqF8iuunu/s6hG9UMazPGAMRJRJp82jXqHw
f5y6NGPHYZug1lo0jo38DQ6czEqegAGjzhdFi3VIkH3EdZo8CfEauay1thrU
fjXNJeTJFLz7uNk90qwa6R1T+T6Y+xEkRq8ub66sRM1H9QoPZXyCulebGLnf
ylA+g6o3+vwzrN0cba5+xUBbdv7qff7ZNAQJHjucXvoLdQqLRcnVzEDmkphM
ilY+KhcLpLU3z8Lh9Y/m9iAq+nWLlLcrZw6+XDalzlBvI27CiqxWDxdSKvab
D9yPhZ1xcXv9vOfBNk5yV0ZTNoye6/9gMjUPwc5ub1X7isBsootf7rsAYftC
b+ZxS+F6gLvn1tkFiNhPC62kVoNFRfqJrdcWwdQ46pPW0Vcwt+odLrKyCBTJ
PLrmOQ7k9t4u8w38AlbVxrkKqBkEnoYuN759AenzA/sMhN+Cwr+JDv6hSyAu
TuqR1e2EyWP3WsREl0Ej2TpF78Y7aFBrBdK9ZbjBbL+fKd4H3mI0UWXxFUjz
O3U+jDUAlTm7DBsSV6Dv8QTHizoMbfoGHGvprxCv/RN339wo8LzTbVwSvgK1
837iYugEEJbZtpJbeeB/i8a/QPkIrnoGBQXJPKjsjEyy6J8Gr9m/lwcoPNBN
mjz89+dpuJrrfESGyoOT0TSjM4JpiBC/MxKeyQP9t8/VwuRmIKOvebs1jQcL
riTnPWdnoOeGPXm1kgc7HsUHqffOwInqgBtW/TwIWtdz5kn/LFj5ihKxgzz4
xcgpQGdmFs6qULbWDPHAbKqE0rE6Cx5/VpWqjfOAotQpoUqag+hzQnPfZnhA
Pkg4612YgzrBA1fadx5k3qXpKXyaA06xIqNfiA/TTzXZhwVz0OrKWJMS4cPN
fs+ywE1c6G/pzgjbwIfbEslC83u4wEvb3mspxYeYh6zRc4FcWLOgq8bK8CG0
ZSLx72gurBeBIJYsH3jaIePHKVyQ9XGVVpPjg8nOHQ+dq7iwXXHJ2WE7H1bI
E0u8Fi6odMUUkxX44C0VJZcxwAWNuG3/chT50OQwIHJ8jgv79J+d/KbMB/G7
E9Vra1z4Pz2wdxI=
       "]]}, {
      GrayLevel[0], 
      Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJwV1Xk4FdgbB3BhpKKhQT81ka2ibQqDXH2FmPJjlFHWmCt7qUtlSEnZqiGE
MArZFWN36yJubl1LkmS7ouwX2dMlaY4/znOez/Oc5znv+573eY8c9dxxJ34+
Pr40slZ2gWdrm/rV/zy4n2IpFNrEhRK3SlvmLpBqYPE1hHixYO/pzujfsX2L
SdeKC+fxTjz/JLSfI23FgxKuvLJoeyTu331ixX9Ls0XzGY6wd5KcDSbO3GGb
zJfvgjFznu+KqzWmfjFP8cDI3LvRIOIuwyBmRvQ5WOnkH17xooqIij+ThvCt
gbduEIfub/PKYHjj50jTJ9eJJQ6kMJpKLmLmslRLIHHqIXdBXp4PDFs6Wq8R
7zmiZiKX5Yu0gNiaAGKG2XLs0ZTL6Pb8f/xV4nf20dvvRweAVZot4L+Sj+oe
zX7WNeR2mcT7Efto3O32YQaihTMu5UssCDulVMYNMBY3tlwkrtdj1qnTg6DU
kbb+AnGU4XbP+pJgyIkrq3sRy5hOl83mhSKUX1bXk3jg2AmbsNwwrDt7R/EM
8SMLxvefs27C8h5vxo1Y0y74N8OU2xjyLzFxIj5+RrorPvoO+l1eLVoTi2ji
WZxRJErpy3ssiaee0MQ/siLhorvdxIK4rLKt9CIzCqwf7Yx+J9ZnpSw/YNzF
2HoLVT3ibUZvzbhaMdh0Q6v8IPHauh/SVOkxeKH5k5I2cXOjuxG7JBY5JhlV
qsR2rWqR03n3sIufwlUg1j3h0qe9Kx7FXswKWWLFjgS1kNx4MJnafpuJRznL
HZuyEmBS8EPxhpX69bPlDFL+gYfyp818K/WZsS2Oi07GBQN6fdsrLsIlEynV
oimIU/i3tpm4pTBYVv14Chq2lqTXE9uM2g7KcFLwUXtIqorY02YdbWY8FZk9
Xc/TiGN0XMMSxNIR5XkF7sSdneYe6y3SEXd3fSKVWOYSTG8kpKOvN63Lmjgr
X0rirHwGDsp0iBoTP5VlJeuqZeLSt+MUFeLeVfLlwyezoT84Qu9vJPk9EE20
TcpG1wFH7y5i1wML/m8+ZKPT6d1Pb4hnvJr1GG45GG+9L1RFLDhwtSnici70
ajKL44hVXnAG1ZMfw9yuSUWfWJt1dK2edwG+haaHhDVwIdaa+VrjbgGyx4ve
+hMP9PHH7i4ugFnI7BoacQQfQ1Z6lpxPWr3firhPe6f6lFchBN84nN9BHFa0
zuGBVxG+7viWzqznoi25sXSRVoKg+sdDg3Wkv/J3XJ6KKkHtfTHLduJrlUG6
Q4UlaD4WXMQmVuZQGt5Ml+BKeZL8I2J/qbwP2bRS7IqiTnoSK4SHrztJK0OJ
ps6BGTYX5/1M/yw+T4d2tuPfwy+5OOpJyRaOpMNF9fDFNmIFqsqk3b90PM6c
M2IRtx0RuiI8QYfVanruQ2Id6ap4O48n+HL/kZMt8Vr67ubVzk+RMLCxoOEF
FxmfRWBrUwHvVM3wBBYXV7mLwYV+FahP2JUXTGz5fqRRKLECoodqymjEIqxa
68KOChwPfBFyhNgrxv+S0IlKhOdKbuLVkn5VHc8rMKuC27yLyDHis3SnCH6F
atR435aYYa7Mh2NbV6lVw77V4K9O4qlOStF3g2pkmp2tqSa+8PWntiXnaqQX
8gveIfY7yNzyJbcayvJ8R1WIQ2pl8sb21yDtf4btNjVcpDS3N7TqMVG/FDCU
+4yL1pEja7KotbAVjDXmMbiYTNhx+IZXLXo7BMQ4xGuNVwfaX6+Fhz6zopJY
N6+Wt/FhLQZiFF9fJ35Ew0jYx1oSn077OuLri2ov3R1Y2F9d6CX9lIu9IluD
95x6AcXWApY8nYtbe+f5yqzYeDKtaPqpmMTrc2TnkDsb84lsmZfEbs+SLKT8
2WDbdLakEP/2u37upQdsBDarDpoTrz4Xaa7Rz8bjZJciehEXQfkqmfQzdXjg
njjmX0jeY7e9MSOgHhOaks8m87mg7WTHVmc0onmjkdjVHDKvHT3y33s2Y7H2
dLL3fS6olSfMIp1bILrJii8ikgvH6dbq6rBW7Ai9LpJ3jfwPv5Sfywxpg+bb
5wLL57jgry7XCPLrwJMbeWeb7LgQVzFu6o3vwrVrm1RHjUi8yXppU9Hd+GPu
lZ3lPi42TjYaBpT3YG4mu8JJiovEl09XCbh9gPQ8LUR/YQSULYe+bz39Ea7P
Qq1uckaw84PYwJULfTgj3xBrQh9BXvYG11KvfvRqDXY6x4zAv8fu7c6QARQv
uerNuY2ARtE0fhAziMjSe+ucKSNYTDagjkUOYahL3Fpx/Qiazyc6+DwcRt9E
AfNm+zC0jOSX36eSe/usx/lThlF3WCtbN4mLwKp6n8nTw8goTNDqezSKpdN9
7N2yw5BU2OV+KmcMJpIOfxl0DKFllfB16YpxnFZi3vIOGkKpsHdmc90n/KpT
FuquMoRdkmLuVNYEHm27fKi5aRCTEfMSqm2T2MfjaBpTB6EQGrr3nPsUBHuO
KPjNDqDPmtOlNzyFulNxMkv+A/ht8O1Cqec0zh8Ce89UP/7ycnKV+jSN1z19
g5IO/TAt++eo1KUZ0K8ICbmU9GFiyd1fYH4GDrLKNn0CfUhtDyzx9J5FGkVS
iXP4IxZddRx8v85C6OH8BR/qB2z5FmVD85uDtFqkXOFkD4aMbtcLC37GGMNU
fENFN55va4TM7c9YM10jH2PeBXfhTEG5NfNo1+DL8mltR3mKos7zqHks2f2q
PP66FU3aFNZx8S/Y/tFojJbzBjz3f8wdIr6AcaqXL8ezEWyzZAtRKR6E7Ab0
G4RrQdWiZGXF8BDlK/JznFMZ3D69+twdx0MzQ3JLq3gZzqfaG2xI4KE7Ws58
sLIUAWtufPS/z8POmZaBa5KlSOqs23w8k4cRiVeGCcxitPmejFwq52GwxmNC
VaIQR596+R7j8ODKut15ekcWjnkKskPe8+CmbuitdjETlvJxUhW9PFjeHL30
sCYDLreeFG8b4EHQo+GxpVU6gqz5Jr6O88AZirbZFpSKqsVwauYyD8oTYgES
EffAypct5PAtoIXZ66i7OQ6N1MLvYgILcOjZ7pGSFQNOfWvS5dUL0HCmpS1W
RoGXuLndTGwBL8ubun9khuK7aZ5SyIYFvAtbR7n1OghCArjAkFjAPmV6kyMn
EBIeVPFt0gs4mFTeb9/tg82yc/Y2mxcwVtpO1R2lQf5tcH7klgXcPHF27WOu
C1RCN35jyS4g+A/nFt+pk9innWP8VW4Bdygtd5ItfQ7+B3jATMk=
       "]]}, {
      RGBColor[1, 0, 0], 
      LineBox[CompressedData["
1:eJwV1Hs41GkbB/BJElJR4lU5r7RTOjhEUbfKIewrOhciNqEiKm1MqRxbKYRM
2YzKeceSQzLqlkx+P6mcIikih1AzTjEjsc/+cV/P9fnr+T7P9b1uTXe/XUcl
GAzGfTL/nbNR9vVnoyNbzBem9n7mU6jT/9RU7SbAyJw3ut3Ek/lrf2+N3wmX
Lxwa/M8F4/BWIW8/LArdur6XuEfRS1QS7wpJq8PEfcTXVKj5eTwP4CVrWQwQ
Z6x0TmXkHYNpwXKFb8QVxkPrdnOOw1+up92GiN9bhVWmx/vBHe0V+mP/3ceU
Y7Iq/eEZyyhCRByp3xyQzjsNacVpzj+JFTdxeK+LzkK05vFiiRcUpm31kRRx
z0Hq8vhYaeI1Nob/18w8D+XzlAULiHkO04m2nGAIdZ58tYT4rWu87l/xIXBz
TruiDnGBwRqTz/xLIHG0I1iP+JzxzQ/nKi/DKcOtRzcQS4KLThovFHTiV6IN
cc22StqoNAz4J/9Zu4c4zkrXt6YoHJT3sLVcidXsh0tGuZEga8a+EUjc7bjP
KSonCkzq82VCiXP38maWZ14F/eQ1UrHEJi7hO6w40aCz3S0il3jXCZX3yfE3
YIJbcv8LsZwJYJJ1LAwbLl0vJh567K/QyY+F9Z2D5rLVFJY8aS4+WxkHozbt
fXrE2/mc6bu8mzCUq7k7mHiFdaND/8YEaPb939gNYll6zn2D0gQ4wIpUTieu
q/WxpooS4Z91TT11xC5NhrHD3FsQ8NORs4ai0HzfsS7T1clwpNlwrzXxL+/Y
hhE5yeDrmHLNjXigbfrd0kw2XGUwQhOIz32mNC04d0BpxO66BE3+Z8S5MCk+
FU4HcjQmiGOW3DarmM+B5dmu1NIaChsKwtWNdnFgaVu2DBA7DTj3qLVxILZy
4MBVYl+nef4jX9PgpcCfqfOSwoTNXlFs+QdwUftAyvlaCltbdx9fsPcBBKlv
as8gVgsE+1D2A9Aqev+4iTgzT0nxpFY6SJh4btF/RWGZOj/V3DAD9HYsvDBG
3DFL61Hf/iwwu6jUlPiGvO/u/NvOKVlQrp9fWEvstUnMqv+UBdk7duhJ1lE4
ElC3jeedDas3hAvOEEt2X3x9PTgHVBblZ7vUU8h80dZjlPo3FD7tlPqtkUJT
vq3sttP5YLJhIiSlhUL5pow3xjfzQbTw6+NO4u4uiUS9wnzodn0YpPuOwusM
nrrKaD7QBS9ii4i7TFcZDQUUQM2+WwvftlIY9XCe292Ah7Bea6vz2g8UNqfW
Fk/6F4FtWe8+m07Sr7yVwUNxRWDUsuRsKvGlJ2HmvQVFMF5VuXSc+Nc2s5f1
w0Uwsjhv6kEXhSwl7qcs/2KoTjqzTKabQu2YmHn7/UvAq31dzUAvhaeC7I8U
niqFAdMmFcVvFNr6mmVJx5aCeT1D7zyxtjtT6PJPKShHrH/eTtxsI3VBWlAK
OUfK/sgVULhZ5Wmyy/HHYLznVxm7IdK/Ur26uZ5l4J2dwL83SmH6dzlwdiqH
ov2GHUWTFF7snwwvCCoHDV6WG/MHhQc+fqmVul0Oo9mynhxiOX7VoYJ35RCU
VTIVM0VhQAIrUGrfE/CLjznkN036avCVm+/wFBLvWHfYStB4svTodQntCvjz
F0vro7I02Q+OGrMMK4C5d/PjceKhVrOHMxYV4GWYXx01j8YzPxY3T3lWQKTA
oCxPjsagLZWqEzkV0M2eGJ+1kMaIKjXuoP4zcFrAa+UvppFT1/KyaVslHFRX
Yz9XpbHpi41MpnsVKITJ1bENaBSyV1qGBlTB9Is9nlaGNMrazb3seqUKPP4o
jxwlNudWiZTvVUHcc5UTOzfQmOsPX6I6q4Dydiqfv5HGK5OG1T5ufNCITAp/
sIXGtXIa4WsOv4CpzbUKprY0/rl2nFFykIJxVs6XBR4k7zmbVb0+FFikyyoN
EXtjyl4lFgXbtuYM1P9O446d23MC71LAUB2+esuTxrl+sbuNP1PQ75t2j+lD
Y1geM6P0BA069e9/O+VP40U9VzteSA1MtcyRDbpEo/8qKrEivRYOVwdeiubQ
OOlxPO+jbx0o6HsnHOmj0f3JPodYzwbwHD+hoGZQgx7DTRUVUU3QgGmRq2Jr
8Nq6R34ZEc3Alg/5WDxcgxIVj4zDgt7BxGYLhSqnl6jAtHvdkfwe6BpjK/m2
l7gjddv9ofgPIOWQxe1yqUVlYa1VyKN2uNUgyIkU1+Lt6rJZs70/QXSJa6t6
2is0U906o/F7J2Swo7b62L3GVZ/kuy+c6QJ7qXR3B8U3yM1a5FUc8BnKCmMS
pzreIKvdpXFVRDdU2ufM4x2rQ38zE7u7CT2w4QG3wq+vDidTLdwHY3vBrQB1
Lb3qse7Ubbdz9/qgaclJhvVMPW601pr+mPYFjrOsBzNvNSBtuTHLPKUfJEoO
3go2acT0AvbGrtwBuCDsPFsw1ohLtFf7HM4ehPWmD2KYD5uwYZb0FZXyr8CJ
uX8eb7zFYunTGXX0NxBf2xQ+FtSMq5fI+7jzBVC3dNFhx2MtKLw+rmjQLARU
8uiOC36H2pGRa/18hqC0JaU/Oq4Vuw61vd/WNwQB1Xx7y5L3uKOnUVzsOwxv
PZ3ZBnIf8I+Ao15K34ah/1GGbY7HR7QvuWOrFDgCLYEN3KSxdhRM+bBmj4/A
m+TyqXfbP2Fay+Ui39OjYMTMXdqi3ImTXpvdzv8YhZMux0ImFnSh6s84J/+g
MXjmwVJ5IfUZe62ja6Qlv8N4KY5u0O3G5ytqQS36O4QkqVg+39+DPtIZkpoy
46BauuWmbFQvPuL8svl53Dhs7Bi8sba/D1+bmvF3KUyA5LyrGnybfhT53Nnt
dn0Cxh2sPrU/HkDKIXXvfCURvI7W2nPK4yu6bzTLzEwQwYCX2ZXFsgL0/vbq
+4ckEUSqW4pzFQR4Ks3VYhFbBPfqn52wUhFgiExoJ+svESyaYtpeXinAlFZ6
2a4MEXxvht4F1gJsPr8/duqRCFwj1DuuhgnQtizgvGObCJI4P7IZs4To6CtJ
RXwUgXZvon6rtBAPaCUplXeIQK2WUVEoL8Rjfz4uXNEtAuNi2wFfDSGGHWII
fnwl+SJLQn+CEJ9OxrhnTIvgKjN/FitEiPw89YI2hhhuedl+PxMpxFr3ghn5
2WLIs+YO+90QYltNU0rwXDEsLuPPOZEqRNHtZS0O8mKQKZK6x0IhzthzdSIW
iUHb7u+u8GohSs2GMzxFMehukF4T90aIisfdFVaoiEF6qrmH2yHEZepjrk7L
xBDl+3wX9glRqzE8L1ZVDN89Dr5sEAqRGan8k68uhu2Wb3d+mRDietNsux+a
YojfffrTzIwQ/wUTn4Pf
       "]]}, {
      RGBColor[1, 0, 0], 
      Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJwV1Xk81HsXB3DbjUo9lHTVzZY2pbrRg9BHSpub9aJCXBUi21Aisi+pNEQh
McpeM9mNpZorU0OuR5E1ZedHIkoz6vJ8++O8vq/3X+ec1zmv81Vy9DQ/KyIk
JPSAxM9X9NmSpoHdf+3dqXt8UXQThQ3UUx35W0DEXsnZKOK5wh1nOhNMkOGw
hfvTRbN4K82yhk7GY5+fHpJx4Zcn2KPrS7rwT1+X4y1jVZ/G6xPfPCKJczbb
ZgixnKFfx66OIOZoTu20YLhBbvPASDhx18GI2uwET8j5XZwJ+5lPVVI1sNYb
zQza+1Di6F1ttOxqH9xJaM8LIZbZw6huKr2AdM1s82DizH2uYnymHzoudXcH
EW8/onFMKdcf0noBBwKJq03nk44yLqPXJfR6APFb+4RN9xKCcfcKr+riz37U
t2sNcEPA2SiR6Uvsp3nrnV9tKAaKHzvRiMVgtyGzOhx+3bvp7sQNBrX1u9kR
uKki88WVOP7gJo+G0kjMFZzQdCGWN/5cPsOMxkKhnK0j8aCZlU1MQQxKXt3S
syd+aFm98FvuVcyc8J23Idayizx8kHENmpPO8pbE5uflupITbiL0zxXthsSS
Wnh2+xAddbTKkn3EU5Xe0n1cOkrFuZ56xOVP2sou1MYj3F0iSoN4P5cxn159
C2JJmluViDceajGltBNhNCgQ+Y14Sf0vD9TZiRhXlK+SJW5udD3EK01C60zs
i6XEdq0a9M/MO8gKGbf+8g8FfSvnfp1tyXBuKFb9RKzSkaIRVZCM7PGOdyPE
Y93zHWtyU9CzgA9dxH4DPKUDjLsIEHW3fUYcP21bcjshA6f72zXDiG+sStXl
LGOgctXoMX/iN0WRCrvNGdC+mqTnRWwzZjsk382AjQk3347Yw2ap9/THTBhH
nC77L3GinktMilQWFL9RyX2NFDo7LdyWW2ZB6ZL34TZi+YswDk/JAt/86usG
4lyWrIy7cjaEaE5eJcRVCtwMfY0cfFWr6Q0j/iCsXDFinQeaw1zsGmKV9GWp
tml5MJ1Z2SJJ7LJHEPi6Nw9tE8wv868oTNOaDarP5cO3+FRdP7HY4JWmuMsF
8P9+KymPWPVF99DujEewoB+a30aswz26xMCnELRdIr2/NlCQas35n+atQoj8
iIgXJx7sF0lSKymEhIuF0mw9hTihagW5mULcsGjqfkPcr7N19xStCMdU19TE
EscUL3VIpxXDt2Jy8xcehbaMxrI571J4mB0sYL4k+8XafHkqvhTqsVXKycQh
TyL0h4tK8dzYxD+MeEu37qvXn0shdrmVY0UcKMvszfMug0mXcuW/Lyisv3Fj
qbV3OZx4PscMib0CjP8q8WJj0edYQVUdhaMeunkSdDaKXj0rzSRe76g6afeY
jYB0dZMY4rYji4IkPrGR5PxayZJYT+5psp1bJaYLyvQmnpP9Y6s1iztVIftt
qvFq4uyvkrC1qcHKsV08878pXKHmIosCaqD1+q3zbuLjPaONi1JrEGEZNLya
WJJbd7KoowZ9lm9C3nEo0BIDLy6yeoIzd223nCHWV//ILDR9irVy2w+7P6Pg
zj4bJ7Keg57y7SynJz/vg5misAYHZQWFZgbEU526xQsHOBiZXtm0jtj3+8q2
H04c2Iv5mLXWUAjYW7vuWwEH0XIGYSCOqpNnju/6G6668VeXV1NgNLe/ajWo
heolttxNNoXW0SOLcx3r8OP9j2tyJRQmUzYbhtPqsK/J1elTMenfSDzUPqwO
I31S8s+J9Zl1/NX367D2pkDlPPFDb4zG9NUhbgNFrymiEDan8dLVgQvNU6nv
rQop7JBUjNx+6gVCp67reDMpxO6YFSo/wUOtw1tD3VxSr9+RrcOuPBRaBc2J
Ep97lmYpG0jsaRn5KofCYZP9BRfTeeCww9edJBb3pFtoDvBgmGVtfSGbQgRL
NYd9vh5so/qPDx6QeajZG1UHN0A49kpQXwYF7628JE52I7YY9yv03CH3+rQb
q8ejGUElQ6mboig4PrEypTu9gXNt1mUtHwqnP7dyODGtWEJfLf/VhvwPOys8
c6La0KHDiEnYT0GEU6EZEdCB8CnW9+VbKEirGjV9SO7CsWW0TzqLSb0ZBg+m
Et5hYTzpz+jRUayebDwYXPEeNkYHVqX/PYrUl1XCoud6YbsibzH7zih01+1b
UDzTh+TOe54b3EextVdqMMi3H+5PrUbG94yCmbfCpYw2gBW30rqEJEYR+N6u
ZWvUIBgdqgHKjSPw1tUySk8cwpBavsLh6yOYyzjgOE4fhskmxfM9RiNo9kp1
8Ls/AtkL9cG2QiPQPqQ835M5ioZ9tku2lQ6j3lA7Tz+NwryKhUbt6WFkF6Vo
9z8cwz6J/xjm/jKMVeu3uZ7KH4dzv1rlWM4Q3ghLhMnVfMRO7e37FbWGUCbh
k9NcP4GISscnkbWD2LZKytWR+wnJ07Om1n8MYjJuVka9bRIM36ZlmrUDWB8d
vcPTdQobEn9fukdzAP0nu7sMRqZw+Ld7x3uy+nF4qEVQ5vEZtxvN1IcFfbhE
O+siO/EZklmPulSN+2Bcfveo7MVpJNbJ5pdG9uLTD9dA0dlpODZFLTK+9AGZ
7aGlHj4zuP0wv8GsuQdzLnoO/t9nsMnwd2Hp/m6s+zfexjvgC0K0xP/xme7E
8KFrDRJiX7EiLuTXhKJ2PN/YCPlrXyHc0njB3/QtXCVyxJQWz4J3M6xzbPIN
Khgqes/jZ3Fj3+ZehlozmnR0uebS3zDR0h003tEAvutdC4e4b9hUM3wl4lcu
eKYZlstk+YjJHD8VNFgDR23d3NxEPv7w1n738tRjnJv45+u723wUi7Pc9IdY
8Mq0P7AihQ/h4X71FDcWgheH9wXe4+PdXlO7cT8m0jrr15rn8PGILpImffMh
2vyt6T8q+FhIEV/uWJGLo1U0f7NuPlZNXOOMfciAmYcYL6qHjwSd/czOwXQc
V74tW/OBjzWBwwvR1D04x1aWbBzkw+FEfrny9F1EnBT69P0jHwMiO66aCCXj
6dwNx5x5Pr6x5uqDpejgshSKuoUEuN11llmrHIdGx6IFKVEBNGRYiaIq19Hd
0Jp2WVwA08vxcfMqMeCnrm03lRJg87z5lXbFECwYMzdErRAg0KMrf7leIBaJ
wrdaRoClE4PfXTQvQcbNUXqjnADeP0Jllm3xwlqFL/Y2awW4HxCvy9R3gXJL
JIu+ToCqxWk5GmoOUI1e/S9XQYChixcsHXaY4nedfKPvSgII29M9H1333Pt/
vSlBtg==
       "]]}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
    Axes -> True, AxesLabel -> {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(i\\)]\\)\"", 
       TraditionalForm], None}, AxesOrigin -> {0, 0}, Method -> {}, PlotRange -> 
    NCache[{{0, Rational[1, 2] Pi}, {-0.9999999412344656, 
       0.9999998712849286}}, {{0, 1.5707963267948966`}, {-0.9999999412344656, 
       0.9999998712849286}}], PlotRangeClipping -> True, PlotRangePadding -> {
      Scaled[0.02], 
      Scaled[0.02]}],
   TemplateBox[{"\"rp\"", "\"tp\"", "\"rs\"", "\"ts\""}, "LineLegend", 
    DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Dashing[{Small, Small}], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Dashing[{Small, Small}], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
              GridBoxAlignment -> {
               "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {
               "Columns" -> {{False}}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], 
             "Grid"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Times"}, 
      Background -> Automatic, StripOnInput -> False]& ), Editable -> True, 
    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             RowBox[{"Directive", "[", 
               RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                 RowBox[{"GrayLevel", "[", "0", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{"RGBColor", "[", 
                 RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "]"}]}], "}"}],
          ",", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.5977763099188223`*^9, 3.5977763678573236`*^9, {3.5977790819318933`*^9, 
   3.597779088452705*^9}, 3.5977791242703676`*^9, 3.623545996654104*^9},
 CellLabel->"Out[2]=",
 CellID->223372667]
}, Open  ]],

Cell["Total power is the sum of reflectance and transmittance:", "ExampleText",
 CellChangeTimes->{{3.597776400867982*^9, 3.5977764522544723`*^9}, {
  3.597776732153164*^9, 3.597776755055004*^9}, {3.5977768993114576`*^9, 
  3.597776914912485*^9}, {3.5977769946910257`*^9, 3.597777000728236*^9}, {
  3.59796749562533*^9, 3.5979674961089306`*^9}},
 CellID->62229741],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", " ", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]i", ",", "ni", ",", "nj", ",", "\[Theta]j"}], "}"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]j", "=", 
     RowBox[{"RefractionAngle", "[", 
      RowBox[{"\[Theta]i", ",", "ni", ",", "nj"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"FresnelA", "[", 
          RowBox[{
          "\"\<rp\>\"", ",", "\[Theta]i", ",", "\[Theta]j", ",", "ni", ",", 
           "nj"}], "]"}], "2"], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"nj", " ", 
           RowBox[{"Cos", "[", "\[Theta]j", "]"}]}], 
          RowBox[{"ni", " ", 
           RowBox[{"Cos", "[", "\[Theta]i", "]"}]}]], 
         SuperscriptBox[
          RowBox[{"FresnelA", "[", 
           RowBox[{
           "\"\<tp\>\"", ",", "\[Theta]i", ",", "\[Theta]j", ",", "ni", ",", 
            "nj"}], "]"}], "2"]}]}], ",", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"FresnelA", "[", 
          RowBox[{
          "\"\<rs\>\"", ",", "\[Theta]i", ",", "\[Theta]j", ",", "ni", ",", 
           "nj"}], "]"}], "2"], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"nj", " ", 
           RowBox[{"Cos", "[", "\[Theta]j", "]"}]}], 
          RowBox[{"ni", " ", 
           RowBox[{"Cos", "[", "\[Theta]i", "]"}]}]], 
         SuperscriptBox[
          RowBox[{"FresnelA", "[", 
           RowBox[{
           "\"\<ts\>\"", ",", "\[Theta]i", ",", "\[Theta]j", ",", "ni", ",", 
            "nj"}], "]"}], "2"]}]}]}], "}"}], "//", "FullSimplify"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.597776470991105*^9, 3.597776712169529*^9}, {
  3.5977768495941706`*^9, 3.5977768814494267`*^9}, {3.59777701414526*^9, 
  3.597777027483283*^9}, {3.5977786312995014`*^9, 3.597778632875104*^9}},
 CellLabel->"In[3]:=",
 CellID->780391889],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.597776563094667*^9, {3.5977766598470373`*^9, 3.597776713199131*^9}, {
   3.597776864679397*^9, 3.5977768822606277`*^9}, 3.597777027904484*^9, 
   3.5977786337799053`*^9, 3.597779163786237*^9, 3.6235460136893344`*^9},
 CellLabel->"Out[3]=",
 CellID->548459445]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[TextData[{
 "Precompute ",
 Cell[BoxData[
  SubscriptBox["\[Theta]", "j"]], "InlineFormula"],
 " for faster execution:"
}], "ExampleText",
 CellChangeTimes->{{3.5977770954224024`*^9, 3.5977771223012495`*^9}, 
   3.5977785928298335`*^9, {3.5979674913509226`*^9, 3.5979674936441264`*^9}},
 CellID->40449232],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]i", "=", 
      RowBox[{"60.", "\[Degree]"}]}], ",", 
     RowBox[{"ni", "=", "1"}], ",", 
     RowBox[{"nj", "=", "2"}]}], "}"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"FresnelA", "[", 
        RowBox[{"\"\<rs\>\"", ",", "\[Theta]i", ",", "ni", ",", "nj"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "100000"}], "}"}]}], "]"}], ";"}], "//", 
    "AbsoluteTiming"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.597777100211611*^9, 3.5977771004768114`*^9}, {
  3.5977771467152925`*^9, 3.597777267617505*^9}, {3.5977773658206778`*^9, 
  3.5977773664290786`*^9}},
 CellLabel->"In[4]:=",
 CellID->403919404],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.49600430000000006458549250965006649494`6.417845242472969", ",", "Null"}],
   "}"}]], "Output",
 CellChangeTimes->{3.597777270019909*^9, 3.5977773686754827`*^9, 
  3.6235460412077827`*^9},
 CellLabel->"Out[4]=",
 CellID->264770527]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]i", "=", 
      RowBox[{"60.", "\[Degree]"}]}], ",", 
     RowBox[{"ni", "=", "1"}], ",", 
     RowBox[{"nj", "=", "2"}], ",", 
     RowBox[{"\[Theta]j", "=", 
      RowBox[{"RefractionAngle", "[", 
       RowBox[{
        RowBox[{"60.", "\[Degree]"}], ",", "1", ",", "2"}], "]"}]}]}], "}"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"FresnelA", "[", 
        RowBox[{
        "\"\<rs\>\"", ",", "\[Theta]i", ",", "\[Theta]j", ",", "ni", ",", 
         "nj"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "100000"}], "}"}]}], "]"}], ";"}], "//", 
    "AbsoluteTiming"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.597777279083525*^9, 3.5977773617334704`*^9}},
 CellLabel->"In[5]:=",
 CellID->47722476],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.15280380000000004514504325925372540951`6.353604364626541", ",", "Null"}],
   "}"}]], "Output",
 CellChangeTimes->{{3.597777311875783*^9, 3.597777363714674*^9}, 
   3.6235460484461956`*^9},
 CellLabel->"Out[5]=",
 CellID->264921975]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[TextData[{
 "Precomputed ",
 Cell[BoxData[
  SubscriptBox["\[Theta]", "j"]], "InlineFormula"],
 " is not verified to obey Snell's Law:"
}], "ExampleText",
 CellChangeTimes->{{3.5977770954224024`*^9, 3.5977771223012495`*^9}, 
   3.5977785928298335`*^9, {3.5978272575515275`*^9, 3.5978272694387484`*^9}, {
   3.5979674864525137`*^9, 3.597967487216915*^9}},
 CellID->225220737],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]i", "=", 
      RowBox[{"60.", "\[Degree]"}]}], ",", 
     RowBox[{"ni", "=", "1"}], ",", 
     RowBox[{"nj", "=", "2"}], ",", "\[Theta]j"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]j", "[", "\"\<Snell\>\"", "]"}], "=", 
     RowBox[{"RefractionAngle", "[", 
      RowBox[{"\[Theta]i", ",", "ni", ",", "nj"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Theta]j", "[", "\"\<unphysical\>\"", "]"}], "=", 
     RowBox[{"60.", "\[Degree]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FresnelA", "[", 
       RowBox[{"\"\<rs\>\"", ",", "\[Theta]i", ",", "ni", ",", "nj"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"FresnelA", "[", 
       RowBox[{"\"\<rs\>\"", ",", "\[Theta]i", ",", 
        RowBox[{"\[Theta]j", "[", "\"\<Snell\>\"", "]"}], ",", "ni", ",", 
        "nj"}], "]"}], ",", 
      RowBox[{"FresnelA", "[", 
       RowBox[{"\"\<rs\>\"", ",", "\[Theta]i", ",", 
        RowBox[{"\[Theta]j", "[", "\"\<unphysical\>\"", "]"}], ",", "ni", ",",
         "nj"}], "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5978272780811634`*^9, 3.597827457467879*^9}},
 CellLabel->"In[6]:=",
 CellID->298064376],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.565741454089335`"}], ",", 
   RowBox[{"-", "0.565741454089335`"}], ",", 
   RowBox[{"-", "0.3333333333333333`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.597827445284257*^9, 3.6235460841702585`*^9},
 CellLabel->"Out[6]=",
 CellID->28591630]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 765},
WindowMargins->{{Automatic, 395}, {54, Automatic}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[42598, 1092, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 49243, 1318}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 147, 3, 31, "Categorization",
 CellID->58841095],
Cell[1209, 50, 93, 2, 31, "Categorization",
 CellID->334674771],
Cell[1305, 54, 143, 3, 31, "Categorization",
 CellID->110019190]
}, Open  ]],
Cell[CellGroupData[{
Cell[1485, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1543, 65, 116, 2, 17, "Keywords",
 CellID->1164421360],
Cell[1662, 69, 115, 2, 17, "Keywords",
 CellID->138162075],
Cell[1780, 73, 116, 2, 17, "Keywords",
 CellID->129934734],
Cell[1899, 77, 115, 2, 17, "Keywords",
 CellID->52932497],
Cell[2017, 81, 119, 2, 17, "Keywords",
 CellID->60581561],
Cell[2139, 85, 119, 2, 17, "Keywords",
 CellID->78934692],
Cell[2261, 89, 173, 3, 17, "Keywords",
 CellID->24108265]
}, Open  ]],
Cell[CellGroupData[{
Cell[2471, 97, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2539, 100, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[2636, 104, 82, 2, 70, "Template",
 CellID->158391909],
Cell[2721, 108, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[2805, 112, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2924, 119, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2980, 122, 63, 2, 70, "Details",
 CellID->670882175],
Cell[3046, 126, 69, 2, 70, "Details",
 CellID->350963985],
Cell[3118, 130, 64, 2, 70, "Details",
 CellID->8391405],
Cell[3185, 134, 69, 2, 70, "Details",
 CellID->3610269],
Cell[3257, 138, 61, 2, 70, "Details",
 CellID->401364205],
Cell[3321, 142, 61, 2, 70, "Details",
 CellID->350204745],
Cell[3385, 146, 63, 2, 70, "Details",
 CellID->732958810],
Cell[3451, 150, 78, 2, 70, "Details",
 CellID->222905350],
Cell[3532, 154, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3636, 161, 51, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[3690, 164, 2477, 78, 156, "Usage"],
Cell[6170, 244, 240, 5, 23, "Notes",
 CellID->1067943069],
Cell[6413, 251, 201, 3, 23, "Notes",
 CellID->2631882],
Cell[6617, 256, 591, 12, 37, "Notes",
 CellID->557154886],
Cell[7211, 270, 300, 5, 23, "Notes",
 CellID->345575069],
Cell[7514, 277, 6430, 176, 162, "2ColumnTableMod",
 CellID->237160975]
}, Open  ]],
Cell[CellGroupData[{
Cell[13981, 458, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[14041, 461, 504, 10, 16, "Tutorials",
 CellID->40297743]
}, Open  ]],
Cell[CellGroupData[{
Cell[14582, 476, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[14668, 479, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[14763, 485, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[14831, 488, 444, 8, 29, "RelatedLinks",
 CellID->148884605],
Cell[15278, 498, 476, 8, 29, "RelatedLinks",
 CellID->134447493]
}, Open  ]],
Cell[CellGroupData[{
Cell[15791, 511, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[15849, 514, 817, 22, 19, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[16703, 541, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[16763, 544, 115, 2, 16, "MoreAbout",
 CellID->283660065]
}, Open  ]],
Cell[CellGroupData[{
Cell[16915, 551, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[17274, 564, 309, 7, 20, "ExampleText",
 CellID->320629885],
Cell[17586, 573, 493, 8, 48, "Input",
 CellID->268501292],
Cell[CellGroupData[{
Cell[18104, 585, 1493, 42, 88, "Input",
 CellID->83132562],
Cell[19600, 629, 20238, 382, 109, "Output",
 CellID->223372667]
}, Open  ]],
Cell[39853, 1014, 364, 5, 20, "ExampleText",
 CellID->62229741],
Cell[CellGroupData[{
Cell[40242, 1023, 1947, 53, 150, "Input",
 CellID->780391889],
Cell[42192, 1078, 357, 8, 25, "Output",
 CellID->548459445]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42598, 1092, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[42723, 1098, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[42851, 1103, 310, 8, 25, "ExampleText",
 CellID->40449232],
Cell[CellGroupData[{
Cell[43186, 1115, 775, 23, 48, "Input",
 CellID->403919404],
Cell[43964, 1140, 275, 8, 25, "Output",
 CellID->264770527]
}, Open  ]],
Cell[CellGroupData[{
Cell[44276, 1153, 865, 27, 48, "Input",
 CellID->47722476],
Cell[45144, 1182, 276, 8, 25, "Output",
 CellID->264921975]
}, Open  ]]
}, Open  ]],
Cell[45447, 1194, 148, 3, 30, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[45620, 1201, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[45750, 1206, 130, 3, 21, "ExampleSubsection",
 CellID->1757724783],
Cell[45883, 1211, 130, 3, 17, "ExampleSubsection",
 CellID->1295379749]
}, Open  ]],
Cell[46028, 1217, 131, 3, 30, "ExampleSection",
 CellID->258228157],
Cell[46162, 1222, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[46329, 1229, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[46467, 1234, 379, 9, 25, "ExampleText",
 CellID->225220737],
Cell[CellGroupData[{
Cell[46871, 1247, 1342, 34, 128, "Input",
 CellID->298064376],
Cell[48216, 1283, 300, 8, 25, "Output",
 CellID->28591630]
}, Open  ]]
}, Open  ]],
Cell[48543, 1295, 140, 3, 30, "ExampleSection",
 CellID->1653164318],
Cell[48686, 1300, 132, 3, 18, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
